home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / Itelnet.mrc < prev    next >
Encoding:
Text File  |  2000-02-16  |  2.3 KB  |  67 lines

  1. ;%%%%%%%%%%%%%%%%%%%%%%%%
  2. ;script iTelnet
  3. ;version 7.0
  4. ;author Quietust
  5. ;email quietust@ircN.org
  6. ;url http://www.ircN.org
  7. ;%%%%%%%%%%%%%%%%%%%%%%%%
  8. on 1:SOCKOPEN:iTelnet.* {
  9.   window -ake @ $+ $sockname %teloc @telnet Courier New 
  10.   clear @ $+ $sockname
  11.   if ($sockerr > 0) { echo @ $+ $sockname *** Connection Error ( $+ $sockerr $+ ) | halt }
  12.   echo @ $+ $sockname *** Connection Accepted
  13.   titlebar @ $+ $sockname - $sock($sockname).ip ( $+ $sock($sockname).port $+ )
  14.   sockmark $sockname %def.tel.echo
  15.   echo @ $+ $sockname Local echo is $upper(%def.tel.echo) $+ . Use popups to toggle.
  16. }
  17. on 1:SOCKCLOSE:iTelnet.* {
  18.   echo @ $+ $sockname *** Connection Terminated
  19.   titlebar @ $+ $sockname -- Not connected
  20. }
  21. on 1:SOCKREAD:iTelnet.* {
  22.   if ($sockerr > 0) { iecho Error occured while iTelnet session $gettok($sockname,2,46) was connected! ( $+ $sockerr $+ ) | halt }
  23.   :nextread
  24.   sockread %iTelnet.tmp
  25.   if ($sockbr == 0) return
  26.   set %iTelnet.tmp $replace(%iTelnet.tmp,$chr(32),á)
  27.   if (%iTelnet.tmp) echo @ $+ $sockname %iTelnet.tmp
  28.   else echo @ $+ $sockname á
  29.   goto nextread
  30. }
  31. on 1:INPUT:@iTelnet.* {
  32.   if ($left($1,1) == /) return
  33.   if ($1 != $null) {
  34.     sockwrite -n $getright($active) $1-
  35.     if ($sock($getright($active)).mark == on) echo -a $1-
  36.   }
  37.   halt
  38. }
  39. on 1:CLOSE:@iTelnet.* {
  40.   set %teloc $swlc($target)
  41.   sockclose $getright($target)
  42.   unset %iTelnet. [ $+ [ $gettok($target,2,46) ] $+ ] .*
  43.   iecho iTelnet session $gettok($target,2,46) closed.
  44. }
  45. menu @telnet {
  46.   exit {
  47.     sockclose $remove($window($active),@)
  48.     unset %iTelnet. [ $+ [ $gettok($window($active),2,46) ] $+ ] .*
  49.     iecho iTelnet session $gettok($window($active),2,46) closed.
  50.     window -c $window($active)
  51.   }
  52.   -
  53.   egg
  54.   .send nick { sockwrite -n $getright($active) $me }
  55.   .whom { sockwrite -n $getright($active) .whom }
  56.   .who { sockwrite -n $getright($active) .who }
  57.   .whois { sockwrite -n $getright($active) .whois $$?="enter nick to whois:" }
  58.   .help { sockwrite -n $getright($active) .help }
  59.   .echo
  60.   ..remote { sockmark $getright($active) off | sockwrite -n $getright($active) .echo on }
  61.   ..local { sockmark $getright($active) on | sockwrite -n $getright($active) .echo off }
  62.   -
  63.   echo
  64.   .on { sockmark $getright($active) on }
  65.   .off { sockmark $getright($active) off }
  66. }
  67.